Enroulement d'une droite autour du cercle trigonométrique
Author: Yvan Monka - m@ths et tiques 2013

0°

0

0

1

1

a = 1.832595714594046 rad (slider from 0 to 6.283185307179586, step 15*°)
A = Intersect(xAxis, yAxis)
c = Circle(A, 1)
B = Intersect(c, xAxis, 2)
a_1 = OrthogonalLine(B, xAxis)
M_1 = Rotate(B, a, A)
d = Segment(A, M_1)
C = Point(d)
u = Vector(C, B)
D = Intersect(c, yAxis, 2)
v = Vector(C, D)
texte3: "" + a + ""
texte4: "" + (360° - a) + ""
e = CircleArc(A, B, M_1)
f = CircleArc(A, M_1, B)
b = Length(e)
Textee: "Longueur de l'arc " + (Name[e]) + " = " + b
g = Circle(B, e)
E = Intersect(g, a_1, 2)
h = Length(f)
Textef: "Longueur de l'arc " + (Name[f]) + " = " + h
k = Circle(B, f)
F = Intersect(k, a_1, 1)
i = Segment(B, E)
j = Segment(F, B)
p = Circle(C, B)
q = Circle(C, B)
r = Circle(B, 6.283185307179586)
G = Intersect(r, a_1, 2)
H = Intersect(r, a_1, 1)
l = Segment(B, G)
m = Segment(B, H)
texte1 = LaTeX($1)
texte2 = LaTeX($2)
texte5 = LaTeX($3)
texte6 = LaTeX($4)
texte7 = LaTeX($5)
texte8 = LaTeX($6)
I = Intersect(c, f)
J = Intersect(c, f, 1)
K = Intersect(c, f, 1)
M = Point(d)
P = (1, 0)
Q = (0, 1)